home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2001 #11 / CD 11 (Black) - 2001.iso / Fruity / GUSHERS.DXR / 00008_SaturnObj.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  549 b   |  22 lines
  1. property pSaturnList, pSaturnCounter, pLastSaturnTime, pSaturnIntervalTime
  2.  
  3. on new me
  4.   set pSaturnList to [23, 24, 25, 24]
  5.   set pSaturnCounter to 1
  6.   set pLastSaturnTime to the timer
  7.   set pSaturnIntervalTime to 7
  8.   return me
  9. end
  10.  
  11. on mUpdateSaturn me
  12.   if the timer < (pLastSaturnTime + pSaturnIntervalTime) then
  13.     exit
  14.   end if
  15.   set the castNum of sprite 2 to getAt(pSaturnList, pSaturnCounter)
  16.   set pSaturnCounter to pSaturnCounter + 1
  17.   if pSaturnCounter = 5 then
  18.     set pSaturnCounter to 1
  19.   end if
  20.   set pLastSaturnTime to the timer
  21. end
  22.